home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64 / klang einfach (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  723b  |  31 lines
  1. 100 rem--------------------------------
  2. 110 rem einfache klangeffekte
  3. 120 rem--------------------------------
  4. 130 s=54272
  5. 140 read a,d,su,r,c,p,f,m,ff,fr,ml
  6. 150 poke s+5 ,16*a +d
  7. 160 poke s+6 ,16*su+r
  8. 170 poke s+2 ,p and 255
  9. 180 poke s+3 ,p/256
  10. 190 hi=int(f/256):lo=f-256*hi
  11. 200 poke s   ,lo
  12. 210 poke s+1 ,hi
  13. 220 poke s+22,ff
  14. 230 poke s+23,fr
  15. 240 poke s+24,ml
  16. 250 get a$:if a$="" then 250
  17. 260 : poke s+4,c or 1
  18. 270 : for i=1 to m:next i
  19. 280 : poke s+4,c and 254
  20. 290 goto 250
  21. 300 rem--------------------------------
  22. 310 rem parameter
  23. 320 data 0 ,10, 0,10:rem a d s r
  24. 330 data 16         :rem control-byte
  25. 340 data 2048       :rem pulsweite
  26. 350 data 40000      :rem frequenz
  27. 360 data 100        :rem verzoegerung
  28. 370 data 50         :rem filterfrequenz
  29. 380 data 0          :rem filterresonanz
  30. 390 data 15         :rem modus/laut
  31.